perm filename HEM.LIB[WHT,LSP] blob
sn#746802 filedate 1984-05-12 generic text, type T, neo UTF8
@marker(library, Hem, Press, Dover)
@Form(Defhvar = "@Begin(Defenvironment)@Comment(Tabset?)@}
@t[@Parm(Var)] @>[@i[@Hemlock Variable]]@\@}
@Send(FunList {@t[@Parm(Var)] @>[@i[@Hemlock Variable]]@\⎇)@}
@HVxindex@Parmquote(Var)@}
@Imbed(Nolabel, undef '@Imbed(Varlabel,
def <@Label{@Parm(Varlabel)-hvar⎇>,
undef <@Label{@Parm(Var)-hvar⎇>)')@}
@Begin(Defbody)@Tabclear ")
@Form(Defhvar1 = "@Begin(Undefbody)@Comment(Tabset?)@}
@t[@Parm(Var)] @>[@i[@hemlock Variable]]@\@}
@Send(FunList {@t[@Parm(Var)] @>[@i[@hemlock Variable]]@\⎇)@}
@HVxindex@Parmquote(Var)@}
@Imbed(Nolabel, undef '@Imbed(Varlabel,
def <@Label{@Parm(Varlabel)-hvar⎇>,
undef <@Label{@Parm(Var)-hvar⎇>)')@}
@End(Undefbody)")
@Commandstring(Enddefhvar = "@End(Defbody)@End(Defenvironment)")
@Textform(HVxindex = "@Xindex(T {Hemlock variable⎇, X {@Parm(Text)⎇, P {@t[@Parm(Text)]⎇)@'")
@Textform(HVindexref = "@Xindexref(T {Hemlock variable⎇, X {@Parm(Text)⎇, P {@t[@Parm(Text)]⎇)@'")
@Textform(HVarref = '@w[@f["@Parm(Text)" ]@}
@r[(page @Pageref(@Parm(Text)-hvar))]]@HVindexref@Parmquote(Text)')
@Form(Defcom = "@Begin(Defenvironment)@Comment(Tabset?)@}
@t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys, def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\
@Imbed(MoreKeys, def <@/@Spreadkeys(@Parm(MoreKeys))
>)@}
@Imbed(YetMoreKeys, def <@/@Spreadkeys(@Parm(YetMoreKeys))
>)@}
@Send(FunList {@t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys,
def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\@Imbed(MoreKeys,
def <
@/@t[@Spreadkeys(@Parm(MoreKeys))]>)@Imbed(YetMoreKeys,
def <
@/@t[@Spreadkeys(@Parm(YetMoreKeys))]>)⎇)@}
@Findex@Parmquote(Fun)@}
@Imbed(SuppressKeyIndex, undef <
@Imbed(Keys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(Keys))')@}
@Imbed(MoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(MoreKeys))')@}
@Imbed(YetMoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(YetMoreKeys))')>)@}
@Imbed(Nolabel, undef '@Imbed(Funlabel,
def <@Label{@Parm(Funlabel)-fun⎇>,
undef <@Label{@Parm(Fun)-fun⎇>)')
@Begin(Defbody)@Tabclear ")
@Form(defcom1 = "@Begin(Undefbody)@Comment(Tabset?)@}
@t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys, def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\
@Imbed(MoreKeys, def <@/@Spreadkeys(@Parm(MoreKeys))
>)@}
@Imbed(YetMoreKeys, def <@/@Spreadkeys(@Parm(YetMoreKeys))
>)@}
@Send(FunList {@t[@Parm(Fun) @Parm(Args, default <>)@Imbed(Keys,
def < @key@!@Spreadkeys(@Parm(Keys))>)] @>[@i[Command]]@\@Imbed(MoreKeys,
def <
@/@t[@Spreadkeys(@Parm(MoreKeys))]>)@Imbed(YetMoreKeys,
def <
@/@t[@Spreadkeys(@Parm(YetMoreKeys))]>)⎇)@}
@Findex@Parmquote(Fun)@}
@Imbed(SuppressKeyIndex, undef <
@Imbed(Keys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(Keys))')@}
@Imbed(MoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(MoreKeys))')@}
@Imbed(YetMoreKeys, def '@IndexKeys(Fun = @Parmquote(Fun), Keys = @Parmquote(YetMoreKeys))')>)@}
@Imbed(Nolabel, undef '@Imbed(Funlabel,
def [@Label{@Parm(Funlabel)-fun⎇],
undef [@Label{@Parm(Fun)-fun⎇])')
@End(Undefbody)")
@Commandstring(Enddefcom = "@End(Defbody)@End(Defenvironment)")
@Textform(Comref = '@f["@Parm(Text)" ]@}
@r[(page @Pageref(@Parm(Text)-fun))]@Findexref@Parmquote(Text)')
@textform(hid = '@w{@t{"@parm(Text)"⎇⎇')
@String(IndexFuns "Yes")
@string(supresskeyindex "Yes")
@specialfont(f1 = helvetica10)
@CommandString(Hemlock = "@f1(Hemlock)")